home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / cabloss.bas < prev    next >
BASIC Source File  |  1994-06-23  |  583b  |  20 lines
  1. 5 COLOR 0,10,14:PRINT
  2. 6 PRINT
  3. 10 PRINT "                      ***LOSS IN A COAX CABLE***
  4. 20 COLOR 15,0,14:PRINT
  5. 21 PRINT
  6. 25 PRINT "WHAT IS THE FORWARD POWER (PF) TO A CABLE SHORTED AT THE FAR END?
  7. 30 INPUT "ENTER THE FORWARD POWER (PF)"; PF
  8. 35 PRINT "WHAT IS THE REFLECTED POWER (PR)?
  9. 40 INPUT "ENTER REFLECTED POWER (PR)"; PR
  10. 45 K=(PF/PR)^.5
  11. 50 S=(K+1)/(K-1)
  12. 55 U=(S-1)/(S+1)
  13. 60 A=4.343*LOG(U)
  14. 65 PRINT
  15. 70 COLOR 0,15,14:PRINT
  16. 71 PRINT
  17. 75 PRINT "                          ***ANSWER***                              "
  18. 76 PRINT
  19. 85 PRINT A," CABLE ATTENUATION IN dB.
  20.